--[[
    编码: WMS-07-05
    名称: 常量-功能按钮-刷新WMS字典常量
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： GenWMSConst

    功能:
        通过WMS的一些字典定义生成常量，比如 通过 WMS_ScheduleSystemType 生成分组= 调度类型 的常量
    更改记录:
        V2.0 HAN 20250213
             -- 新增了 WMS_CountType 盘点类型
        
--]]

wms_base = require ("wms_base")

local function Conversion( strLuaDEID, group_name, dict_name )
    local nRet, strRetInfo

    if ( group_name == nil or group_name == '' or dict_name == '' or dict_name == nil ) then return end

    nRet, strRetInfo = mobox.getDictItemIInfo( dict_name )
    if ( nRet ~= 0 or strRetInfo == '') then lua.Error( strLuaDEID, debug.getinfo(1), "系统没有定义名为'"..dict_name.."'的字典!") end
    local dict_items = json.decode( strRetInfo ) 

    local strCondition = "S_GROUP = '"..group_name.."'"
    nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "WMS_Const", strCondition )
    if ( nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【常量】失败!  "..strRetInfo ) end 

    local n, nCount
    nCount = #dict_items
    for n = 1, nCount do
        local const = m3.AllocObject( strLuaDEID, "WMS_Const")
        const.name = group_name..'-'..dict_items[n].value
        const.value = dict_items[n].name
        const.group = group_name
        const.sys = "Y"
        const.note = "由字典"..dict_name.."生成"
        nRet, strRetInfo = m3.CreateDataObj(strLuaDEID, const)
        if (nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1),"创建WMS常量失败!"..strRetInfo) end     
    end
end

function GenWMSConst ( strLuaDEID ) 
    local dict_array = {}
    local nIndex = 1

    Conversion( strLuaDEID, "调度类型", "WMS_ScheduleSystemType" )
    Conversion( strLuaDEID, "货位类型", "WMS_LocationType" )
    Conversion( strLuaDEID, "货位用途", "WMS_LocationPurpose" )
    Conversion( strLuaDEID, "接驳类型", "WMS_ConnectType" )
    Conversion( strLuaDEID, "库区类型", "WMS_AreaType" )
    Conversion( strLuaDEID, "检验类型", "WMS_InspectionType" )
    Conversion( strLuaDEID, "任务类型", "WMS_TaskType" )
    Conversion( strLuaDEID, "容器类型", "WMS_ContainerType" )
    Conversion( strLuaDEID, "设备动作", "WMS_EquipmentAction" )
    Conversion( strLuaDEID, "设备类型", "WMS_EquipmentType" )
    Conversion( strLuaDEID, "作业状态", "WMS_OperationState" )
    Conversion( strLuaDEID, "功能区类型", "WMS_FuncType" )
    Conversion( strLuaDEID, "基础类型", "WMS_FAType" )
    Conversion( strLuaDEID, "物料状态", "WMS_ItemState" )
    Conversion( strLuaDEID, "库区设备类型", "WMS_AreaDevice_Type" )
    Conversion( strLuaDEID, "盘点类型", "WMS_CountType" )
end